home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok77.lha / REXX / VersionModul / IncCharRev.oed next >
Text File  |  1993-08-15  |  1KB  |  44 lines
  1. /* -----------------------------------------------------
  2.  
  3.   :Program.     IncCharVer.oed
  4.   :Author.      Albert Weinert [awn]
  5.   :Address.     Feldblumenweg 2, D-5000 Köln 71
  6.   :Version.     V1.1
  7.   :Date.        22-Jul-1992
  8.   :Copyright.   Public Domain
  9.   :Language.    ARexx
  10.   :Translator.  ARexx 1.15
  11.   :Contents.    Erhöhen der Buchstabensnach einer Version für den User eines
  12.   :Contents.    mit WriteVersionModule.oed
  13.   :Contents.    erstellt wurde.
  14.   :Imports.     Nichts
  15.   :History.     V0.0   [awn] 14-Jul-1992 : Begonnen
  16.   :History.     V1.0   [awn] 14-Jul-1992 : Funktionierende Version
  17.   :History.     V1.1   [awn] 22-Jul-1992 : UpdateVersionModule.oed wird jetzt automatisch
  18.   :History.                                am Ende des Script gestartet
  19.  
  20. ---------------------------------------------------------*/
  21.  
  22. options results
  23.  
  24. address 'OEd'
  25.  
  26. 'insertoff'; 'top'
  27.  
  28. 'title "Erhöhe Char Version"'
  29. 'findstr' ":CharRev."; 'next'
  30. 'wright';'wright';right
  31. version = ""
  32. getasc
  33. version = result
  34. IF version = 33 THEN version = 97
  35. ELSE  version = version + 1
  36. writeasc version;deleol
  37. inserton
  38. rx "oberon:rexx/UpdateVersionModule.oed"
  39.  
  40.  
  41.  
  42.  
  43.  
  44.